# Title     : TODO
# Objective : TODO
# Created by: xueyj
# Created on: 2020/10/15 0015
pacman::p_load(ggpubr,dplyr)



path <- "E:/projects/R_draw_sc/test/t.test/data/ttest1.txt"
data <- read.delim(path,check.names = FALSE,header=TRUE,row.names = 1) %>% head(n=100)
a <- data[,1]
b <- data[,2]
a <- rnorm(100,mean=10,sd=2)
b <- rnorm(100,mean=20,sd=3)
testdata <- data.frame(value=c(a,b),group=rep(c("a","b"),each = nrow(data)))

shapiro.test(a)
shapiro.test(b)
bartlett.test(value~group,data=testdata)

ggboxplot(testdata,x="group",y="value")
